home *** CD-ROM | disk | FTP | other *** search
/ Amiga Collections: Bavarian / Bavarian #093 (19xx)(APS Electronic).zip / Bavarian #093 (19xx)(APS Electronic).adf / umwandler (.txt) < prev    next >
AmigaBASIC Source Code  |  1989-04-27  |  2KB  |  50 lines
  1. '*******************************************************
  2. '***   Transfer Graphicraft > SCA-Titlemaker-Format  ***
  3. '***            Copyright (C) 1986 by SCA            ***
  4. '***                                                 ***
  5. '*** Dieses Programm darf frei weitergegeben werden, ***
  6. '***    unter der Bedingung dass es vollstaendig     ***
  7. '***  und in seiner jetzigen Form kopiert wird !!!   ***
  8. '***                                                 ***
  9. '***    Jede gewerbliche Nutzung nur mit schrift-    ***
  10. '***       licher Genehmigung der Autoren !!!        ***
  11. '*******************************************************
  12.  
  13.  
  14. CLEAR ,65000 :'Speicher reservieren
  15. DEFINT a-z
  16. DIM a$(200,4)
  17.  
  18. OPEN ":Vorher"  FOR INPUT  AS #1
  19. OPEN ":SCA/picture" FOR OUTPUT AS #2
  20.  
  21. INPUT "Cycle-Startfarbe (0-31)       ";canf
  22. INPUT "Anzahl Cycle-Farben (1-32)    ";clen
  23. INPUT "Cycle-Geschwindigkeit (1-255) ";cspd
  24.  
  25. a$=INPUT$(48,1) :'Headeranfang ueberlesen
  26. c$=INPUT$(96,1) :'Farben einlesen
  27. a$=INPUT$(42,1) :'Rest des Headers ueberlesen
  28.  
  29. FOR y = 0 TO 199
  30.    FOR i = 0 TO 4
  31.       a$(y,i)=INPUT$(40,1)+CHR$(0)+CHR$(0)
  32.    NEXT
  33.    LOCATE 10,35:PRINT  y
  34. NEXT
  35.  
  36. PRINT #2,LEFT$(c$,3*32);                    :'32 Farben schreiben
  37. PRINT #2,CHR$(canf);CHR$(clen);CHR$(cspd);  :'Cycle-Stuff schreiben
  38.  
  39. FOR i=0 TO 4
  40.    FOR y=0 TO 199
  41.       PRINT #2,a$(y,i);
  42.    NEXT
  43.    LOCATE 11,35:PRINT i
  44. NEXT            
  45.  
  46. Fertig:
  47.   CLOSE#2:CLOSE#1
  48.   SYSTEM
  49.   
  50.